program prueba1;
  var caracter : char;
 	  estrin : String;
begin
	caracter := 'a';
	estrin := 'a';
END.